home *** CD-ROM | disk | FTP | other *** search
/ Private Casting / Casting One.bin / Docs / Tienda.dir / 00030.ls < prev    next >
Encoding:
Text File  |  1998-02-21  |  393 b   |  14 lines
  1. on mouseEnter
  2.   cursor([cast "curs", cast "mask"])
  3.   puppetSprite(the currentSpriteNum, 1)
  4.   set the blend of sprite the currentSpriteNum to 100
  5.   set the visible of sprite (the currentSpriteNum + 5) to 1
  6. end
  7.  
  8. on mouseLeave
  9.   cursor(-1)
  10.   set the blend of sprite the currentSpriteNum to 0
  11.   puppetSprite(the currentSpriteNum, 0)
  12.   set the visible of sprite (the currentSpriteNum + 5) to 0
  13. end
  14.